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DIRECTORY 

AUoFileDefs: FROM "altof iledef s" . 
StreamDefs: FROM "streamdef s" ; 

DEFINITIONS FROM StreamDefs, AUoFileDefs; 

DirectoryDefs: DEFINITIONS = BEGIN 

-- Signals 

BadFilename: SIGNAL [name: STRING]; 
BadDirectory: SIGNAL [name: STRING]; 

-- procedures 

EnumerateDirectory: PROCEDURE [proc: PROCEDURE [POINTER TO FP. STRING] RETURNS [BOOLEAN]]: 
DirectoryLookup: PROCEDURE [fp: POINTER TO FP, name: STRING, create: BOOLEAN] 

RETURNS [old: BOOLEAN]; 
DirectoryLookupFP: PROCEDURE [fp: POINTER TO FP, name: STRING] RETURNS [old: BOOLEAN]; 
DirectoryPurge: PROCEDURE [fp: POINTER TO FP, name: STRING] RETURNS [found: BOOLEAN]; 
DirectoryPurgeFP: PROCEDURE [fp: POINTER TO FP] RETURNS [found: BOOLEAN]; 

EnumerateEntries: PROCEDURE [dir: StreamHandle , 

proc: PROCEDURE [Streamlndex , POINTER TO DV. STRING] RETURNS [BOOLEAN]] 
RETURNS [Streamlndex]; 

-- Filename Parsing (such as it is) 

ExpandFilename: PROCEDURE [name, filename: STRING]; 

END. 

-- stuff yet to be done: 

SetCurrentDi r , CloseCurrentDir , SetWorkingDir , ParseFi lename . 
VersionsKept , StripVersion, AppendVersion , SearchForVersion . 


